object DtmLancamentos: TDtmLancamentos
  OldCreateOrder = False
  Left = 218
  Top = 224
  Height = 269
  Width = 637
  object CDS_Estorno_Contas: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSP_Estorno_Contas'
    Left = 56
    Top = 160
    object CDS_Estorno_ContasBCE_LANCAMENTOIDF: TIntegerField
      FieldName = 'BCE_LANCAMENTOIDF'
      Required = True
    end
    object CDS_Estorno_ContasBCE_DATA: TDateTimeField
      FieldName = 'BCE_DATA'
    end
    object CDS_Estorno_ContasBCE_USUARIO: TStringField
      FieldName = 'BCE_USUARIO'
      Required = True
      Size = 3
    end
    object CDS_Estorno_ContasBCE_MOTIVO: TStringField
      FieldName = 'BCE_MOTIVO'
      Required = True
      Size = 40
    end
  end
  object CDS_Estorno_Caixas: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSP_Estorno_Caixas'
    Left = 56
    Top = 112
    object CDS_Estorno_CaixasCXE_LANCAMENTOIDF: TIntegerField
      FieldName = 'CXE_LANCAMENTOIDF'
      Required = True
    end
    object CDS_Estorno_CaixasCXE_DATA: TDateTimeField
      FieldName = 'CXE_DATA'
    end
    object CDS_Estorno_CaixasCXE_USUARIO: TStringField
      FieldName = 'CXE_USUARIO'
      Required = True
      Size = 3
    end
    object CDS_Estorno_CaixasCXE_MOTIVO: TStringField
      FieldName = 'CXE_MOTIVO'
      Required = True
      Size = 40
    end
  end
  object CDS_Contas_Lancamentos: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSP_Contas_Lancamentos'
    Left = 56
    Top = 16
    object CDS_Contas_LancamentosBCL_LANCAMENTOIDF: TIntegerField
      FieldName = 'BCL_LANCAMENTOIDF'
      Required = True
    end
    object CDS_Contas_LancamentosBCL_EMPRESA: TSmallintField
      FieldName = 'BCL_EMPRESA'
    end
    object CDS_Contas_LancamentosBCL_BCTCONTAIDF: TIntegerField
      FieldName = 'BCL_BCTCONTAIDF'
      Required = True
    end
    object CDS_Contas_LancamentosBCL_DOCUMENTO: TIntegerField
      FieldName = 'BCL_DOCUMENTO'
      Required = True
    end
    object CDS_Contas_LancamentosBCL_DATA: TDateField
      FieldName = 'BCL_DATA'
    end
    object CDS_Contas_LancamentosBCL_VALOR: TFloatField
      FieldName = 'BCL_VALOR'
      Required = True
    end
    object CDS_Contas_LancamentosBCL_TIPOLANCAM: TStringField
      FieldName = 'BCL_TIPOLANCAM'
      Required = True
      Size = 1
    end
    object CDS_Contas_LancamentosBCL_SUBIDFCONTA: TStringField
      FieldName = 'BCL_SUBIDFCONTA'
      Required = True
      Size = 3
    end
    object CDS_Contas_LancamentosBCL_SUBCODIGO: TStringField
      FieldName = 'BCL_SUBCODIGO'
      Required = True
      Size = 3
    end
    object CDS_Contas_LancamentosBCL_OBSERVACOES: TMemoField
      FieldName = 'BCL_OBSERVACOES'
      BlobType = ftMemo
    end
    object CDS_Contas_LancamentosBCL_COMCHEQUE: TStringField
      FieldName = 'BCL_COMCHEQUE'
      Required = True
      Size = 1
    end
    object CDS_Contas_LancamentosBCL_USUARIO: TStringField
      FieldName = 'BCL_USUARIO'
      Required = True
      Size = 3
    end
    object CDS_Contas_LancamentosBCL_DATALANCAMENTO: TDateTimeField
      FieldName = 'BCL_DATALANCAMENTO'
    end
    object CDS_Contas_LancamentosBCL_ESTORNADO: TStringField
      FieldName = 'BCL_ESTORNADO'
      Required = True
      Size = 1
    end
    object CDS_Contas_LancamentosBCL_AUTOMATICO: TStringField
      FieldName = 'BCL_AUTOMATICO'
      Required = True
      Size = 1
    end
  end
  object CDS_Caixas_Lancamentos: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSP_Caixas_Lancamentos'
    Left = 56
    Top = 64
    object CDS_Caixas_LancamentosCXL_LANCAMENTOIDF: TIntegerField
      FieldName = 'CXL_LANCAMENTOIDF'
      Required = True
    end
    object CDS_Caixas_LancamentosCXL_CAIXAIDF: TIntegerField
      FieldName = 'CXL_CAIXAIDF'
      Required = True
    end
    object CDS_Caixas_LancamentosCXL_DOCUMENTO: TIntegerField
      FieldName = 'CXL_DOCUMENTO'
    end
    object CDS_Caixas_LancamentosCXL_DATA: TDateField
      FieldName = 'CXL_DATA'
    end
    object CDS_Caixas_LancamentosCXL_VALOR: TFloatField
      FieldName = 'CXL_VALOR'
      Required = True
    end
    object CDS_Caixas_LancamentosCXL_TIPO: TStringField
      FieldName = 'CXL_TIPO'
      Size = 1
    end
    object CDS_Caixas_LancamentosCXL_FORMAPGTO: TSmallintField
      FieldName = 'CXL_FORMAPGTO'
      Required = True
    end
    object CDS_Caixas_LancamentosCXL_OBSERVACOES: TMemoField
      FieldName = 'CXL_OBSERVACOES'
      BlobType = ftMemo
    end
    object CDS_Caixas_LancamentosCXL_ESTORNADO: TStringField
      FieldName = 'CXL_ESTORNADO'
      Required = True
      Size = 1
    end
    object CDS_Caixas_LancamentosCXL_SUBIDFCONTA: TStringField
      FieldName = 'CXL_SUBIDFCONTA'
      Required = True
      Size = 3
    end
    object CDS_Caixas_LancamentosCXL_SUBCODIGO: TStringField
      FieldName = 'CXL_SUBCODIGO'
      Required = True
      Size = 3
    end
    object CDS_Caixas_LancamentosCXL_USUARIO: TStringField
      FieldName = 'CXL_USUARIO'
      Required = True
      Size = 3
    end
    object CDS_Caixas_LancamentosCXL_DATALANCAMENTO: TDateTimeField
      FieldName = 'CXL_DATALANCAMENTO'
    end
    object CDS_Caixas_LancamentosCXL_AUTOMATICO: TStringField
      FieldName = 'CXL_AUTOMATICO'
      Required = True
      Size = 1
    end
  end
  object DSP_Estorno_Caixas: TDataSetProvider
    DataSet = ZEstorno_Caixas
    Left = 192
    Top = 112
  end
  object DSP_Estorno_Contas: TDataSetProvider
    DataSet = ZEstorno_Contas
    Left = 192
    Top = 160
  end
  object DSP_Contas_Lancamentos: TDataSetProvider
    DataSet = Z_Contas_Lancamentos
    Left = 192
    Top = 16
  end
  object DSP_Caixas_Lancamentos: TDataSetProvider
    DataSet = Z_Caixas_Lancamentos
    Left = 192
    Top = 64
  end
  object Z_Caixas_Lancamentos: TZQuery
    Connection = DtmGeral.ZConexaoBanco
    UpdateObject = ZUpdate_Caixas_Lancamentos
    SQL.Strings = (
      'SELECT * FROM CAIXAS_LANCAMENTOS'
      'WHERE CXL_LANCAMENTOIDF = :ID')
    Params = <
      item
        DataType = ftUnknown
        Name = 'ID'
        ParamType = ptUnknown
      end>
    Left = 336
    Top = 16
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ID'
        ParamType = ptUnknown
      end>
  end
  object Z_Contas_Lancamentos: TZQuery
    Connection = DtmGeral.ZConexaoBanco
    UpdateObject = ZUpdate_Contas_Lancamentos
    SQL.Strings = (
      'SELECT * FROM  BANCOS_CONTAS_LANCAMENTOS'
      'WHERE BCL_LANCAMENTOIDF = :ID')
    Params = <
      item
        DataType = ftUnknown
        Name = 'ID'
        ParamType = ptUnknown
      end>
    Left = 336
    Top = 64
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ID'
        ParamType = ptUnknown
      end>
  end
  object ZEstorno_Caixas: TZQuery
    Connection = DtmGeral.ZConexaoBanco
    UpdateObject = ZUpdate_Estorno_Caixas
    SQL.Strings = (
      
        'select CXE_LANCAMENTOIDF, CXE_DATA, CXE_USUARIO, CXE_MOTIVO from' +
        ' CAIXAS_ESTORNOS WHERE CXE_LANCAMENTOIDF = :CXE_LANCAMENTOIDF')
    Params = <
      item
        DataType = ftUnknown
        Name = 'CXE_LANCAMENTOIDF'
        ParamType = ptUnknown
      end>
    Left = 336
    Top = 112
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'CXE_LANCAMENTOIDF'
        ParamType = ptUnknown
      end>
  end
  object ZEstorno_Contas: TZQuery
    Connection = DtmGeral.ZConexaoBanco
    UpdateObject = ZUpdate_Estorno_Contas
    SQL.Strings = (
      'select BCE_LANCAMENTOIDF, BCE_DATA, BCE_USUARIO, '
      'BCE_MOTIVO from BANCOS_CONTAS_ESTORNOS '
      'WHERE BCE_LANCAMENTOIDF = :BCE_LANCAMENTOIDF')
    Params = <
      item
        DataType = ftUnknown
        Name = 'BCE_LANCAMENTOIDF'
        ParamType = ptUnknown
      end>
    Left = 336
    Top = 160
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'BCE_LANCAMENTOIDF'
        ParamType = ptUnknown
      end>
  end
  object ZUpdate_Caixas_Lancamentos: TZUpdateSQL
    DeleteSQL.Strings = (
      'DELETE FROM CAIXAS_LANCAMENTOS'
      'WHERE'
      '  CAIXAS_LANCAMENTOS.CXL_LANCAMENTOIDF = '
      ':OLD_CXL_LANCAMENTOIDF')
    InsertSQL.Strings = (
      'INSERT INTO CAIXAS_LANCAMENTOS'
      '  ( CXL_CAIXAIDF, CXL_DOCUMENTO, '
      'CXL_DATA, CXL_VALOR, '
      '   CXL_TIPO, CXL_FORMAPGTO, CXL_OBSERVACOES, '
      'CXL_ESTORNADO, CXL_SUBIDFCONTA, '
      '   CXL_SUBCODIGO, CXL_USUARIO, CXL_DATALANCAMENTO, '
      'CXL_AUTOMATICO)'
      'VALUES'
      '  ( :CXL_CAIXAIDF, :CXL_DOCUMENTO, '
      ':CXL_DATA, :CXL_VALOR, '
      '   :CXL_TIPO, :CXL_FORMAPGTO, :CXL_OBSERVACOES, '
      ':CXL_ESTORNADO, :CXL_SUBIDFCONTA, '
      '   :CXL_SUBCODIGO, :CXL_USUARIO, :CXL_DATALANCAMENTO, '
      ':CXL_AUTOMATICO)')
    ModifySQL.Strings = (
      'UPDATE CAIXAS_LANCAMENTOS SET'
      '  CXL_CAIXAIDF = :CXL_CAIXAIDF,'
      '  CXL_DOCUMENTO = :CXL_DOCUMENTO,'
      '  CXL_DATA = :CXL_DATA,'
      '  CXL_VALOR = :CXL_VALOR,'
      '  CXL_TIPO = :CXL_TIPO,'
      '  CXL_FORMAPGTO = :CXL_FORMAPGTO,'
      '  CXL_OBSERVACOES = :CXL_OBSERVACOES,'
      '  CXL_ESTORNADO = :CXL_ESTORNADO,'
      '  CXL_SUBIDFCONTA = :CXL_SUBIDFCONTA,'
      '  CXL_SUBCODIGO = :CXL_SUBCODIGO,'
      '  CXL_USUARIO = :CXL_USUARIO,'
      '  CXL_DATALANCAMENTO = :CXL_DATALANCAMENTO,'
      '  CXL_AUTOMATICO = :CXL_AUTOMATICO'
      'WHERE'
      '  CAIXAS_LANCAMENTOS.CXL_LANCAMENTOIDF = '
      ':OLD_CXL_LANCAMENTOIDF')
    UseSequenceFieldForRefreshSQL = False
    Left = 472
    Top = 16
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'CXL_CAIXAIDF'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CXL_DOCUMENTO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CXL_DATA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CXL_VALOR'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CXL_TIPO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CXL_FORMAPGTO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CXL_OBSERVACOES'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CXL_ESTORNADO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CXL_SUBIDFCONTA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CXL_SUBCODIGO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CXL_USUARIO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CXL_DATALANCAMENTO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CXL_AUTOMATICO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLD_CXL_LANCAMENTOIDF'
        ParamType = ptUnknown
      end>
  end
  object ZUpdate_Contas_Lancamentos: TZUpdateSQL
    DeleteSQL.Strings = (
      'DELETE FROM BANCOS_CONTAS_LANCAMENTOS'
      'WHERE'
      '  BANCOS_CONTAS_LANCAMENTOS.BCL_LANCAMENTOIDF = '
      ':OLD_BCL_LANCAMENTOIDF')
    InsertSQL.Strings = (
      'INSERT INTO BANCOS_CONTAS_LANCAMENTOS'
      '  (BCL_EMPRESA, BCL_BCTCONTAIDF, BCL_DOCUMENTO, '
      'BCL_DATA, BCL_VALOR, BCL_TIPOLANCAM, '
      '   BCL_SUBIDFCONTA, BCL_SUBCODIGO, BCL_OBSERVACOES, '
      'BCL_COMCHEQUE, BCL_USUARIO, '
      '   BCL_DATALANCAMENTO, BCL_ESTORNADO, BCL_AUTOMATICO)'
      'VALUES'
      '  (:BCL_EMPRESA, :BCL_BCTCONTAIDF, :BCL_DOCUMENTO, '
      ':BCL_DATA, :BCL_VALOR, '
      '   :BCL_TIPOLANCAM, :BCL_SUBIDFCONTA, :BCL_SUBCODIGO, '
      ':BCL_OBSERVACOES, '
      '   :BCL_COMCHEQUE, :BCL_USUARIO, :BCL_DATALANCAMENTO, '
      ':BCL_ESTORNADO, :BCL_AUTOMATICO)')
    ModifySQL.Strings = (
      'UPDATE BANCOS_CONTAS_LANCAMENTOS SET'
      '  BCL_EMPRESA = :BCL_EMPRESA,'
      '  BCL_BCTCONTAIDF = :BCL_BCTCONTAIDF,'
      '  BCL_DOCUMENTO = :BCL_DOCUMENTO,'
      '  BCL_DATA = :BCL_DATA,'
      '  BCL_VALOR = :BCL_VALOR,'
      '  BCL_TIPOLANCAM = :BCL_TIPOLANCAM,'
      '  BCL_SUBIDFCONTA = :BCL_SUBIDFCONTA,'
      '  BCL_SUBCODIGO = :BCL_SUBCODIGO,'
      '  BCL_OBSERVACOES = :BCL_OBSERVACOES,'
      '  BCL_COMCHEQUE = :BCL_COMCHEQUE,'
      '  BCL_USUARIO = :BCL_USUARIO,'
      '  BCL_DATALANCAMENTO = :BCL_DATALANCAMENTO,'
      '  BCL_ESTORNADO = :BCL_ESTORNADO,'
      '  BCL_AUTOMATICO = :BCL_AUTOMATICO'
      'WHERE'
      '  BANCOS_CONTAS_LANCAMENTOS.BCL_LANCAMENTOIDF = '
      ':OLD_BCL_LANCAMENTOIDF')
    UseSequenceFieldForRefreshSQL = False
    Left = 472
    Top = 64
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'BCL_EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'BCL_BCTCONTAIDF'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'BCL_DOCUMENTO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'BCL_DATA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'BCL_VALOR'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'BCL_TIPOLANCAM'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'BCL_SUBIDFCONTA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'BCL_SUBCODIGO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'BCL_OBSERVACOES'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'BCL_COMCHEQUE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'BCL_USUARIO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'BCL_DATALANCAMENTO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'BCL_ESTORNADO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'BCL_AUTOMATICO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLD_BCL_LANCAMENTOIDF'
        ParamType = ptUnknown
      end>
  end
  object ZUpdate_Estorno_Caixas: TZUpdateSQL
    DeleteSQL.Strings = (
      'DELETE FROM CAIXAS_ESTORNOS'
      'WHERE'
      '  CAIXAS_ESTORNOS.CXE_LANCAMENTOIDF = '
      ':OLD_CXE_LANCAMENTOIDF')
    InsertSQL.Strings = (
      'INSERT INTO CAIXAS_ESTORNOS'
      '  (CXE_LANCAMENTOIDF, CXE_DATA, CXE_USUARIO, CXE_MOTIVO)'
      'VALUES'
      '  (:CXE_LANCAMENTOIDF, :CXE_DATA, :CXE_USUARIO, '
      ':CXE_MOTIVO)')
    ModifySQL.Strings = (
      'UPDATE CAIXAS_ESTORNOS SET'
      '  CXE_DATA = :CXE_DATA,'
      '  CXE_USUARIO = :CXE_USUARIO,'
      '  CXE_MOTIVO = :CXE_MOTIVO'
      'WHERE'
      '  CAIXAS_ESTORNOS.CXE_LANCAMENTOIDF = '
      ':OLD_CXE_LANCAMENTOIDF')
    UseSequenceFieldForRefreshSQL = False
    Left = 472
    Top = 112
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'CXE_DATA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CXE_USUARIO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CXE_MOTIVO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLD_CXE_LANCAMENTOIDF'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CXE_LANCAMENTOIDF'
        ParamType = ptUnknown
      end>
  end
  object ZUpdate_Estorno_Contas: TZUpdateSQL
    DeleteSQL.Strings = (
      'DELETE FROM BANCOS_CONTAS_ESTORNOS'
      'WHERE'
      
        '  BANCOS_CONTAS_ESTORNOS.BCE_LANCAMENTOIDF = :OLD_BCE_LANCAMENTO' +
        'IDF')
    InsertSQL.Strings = (
      'INSERT INTO BANCOS_CONTAS_ESTORNOS'
      '  (BCE_LANCAMENTOIDF, BCE_DATA, BCE_USUARIO, BCE_MOTIVO)'
      'VALUES'
      '  (:BCE_LANCAMENTOIDF, :BCE_DATA, :BCE_USUARIO, '
      ':BCE_MOTIVO)')
    ModifySQL.Strings = (
      'UPDATE BANCOS_CONTAS_ESTORNOS SET'
      '  BCE_DATA = :BCE_DATA,'
      '  BCE_USUARIO = :BCE_USUARIO,'
      '  BCE_MOTIVO = :BCE_MOTIVO'
      'WHERE'
      '  BANCOS_CONTAS_ESTORNOS.BCE_LANCAMENTOIDF = '
      ':OLD_BCE_LANCAMENTOIDF')
    UseSequenceFieldForRefreshSQL = False
    Left = 472
    Top = 160
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'BCE_DATA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'BCE_USUARIO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'BCE_MOTIVO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLD_BCE_LANCAMENTOIDF'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'BCE_LANCAMENTOIDF'
        ParamType = ptUnknown
      end>
  end
  object ZRConsulta: TZReadOnlyQuery
    Connection = DtmGeral.ZConexaoBanco
    Params = <>
    Left = 568
    Top = 32
  end
end
